function GetActiveOleObject(const ClassName: string): Variant;
See the Using COM Automation objects topic.